unit oWall;

interface

uses oLogicalEntity, XMLIntf, oPedestrian,
 oPolygon, oEntityTypeConstants, oIstoreable;

type
  TWall = class(TLogicalEntity)
    private
    public
      destructor Destroy; override;
      procedure SaveToXML(var paNode : Ixmlnode); override;
      procedure LoadFromXML(paNode : IXMLNode); override;
      constructor Create(paName : string; paId : integer); overload;
      constructor Create; overload;
  end;

implementation

uses SysUtils;

{ TSink }

constructor TWall.Create;
begin
   inherited Create;
   TypeLogic := ET_WALL_TYPE;
end;

constructor TWall.Create(paName: string; paId: integer);
var
  i : integer;
begin
  Create;
  inherited Create(paName, paId);
end;

destructor TWall.destroy;
begin
  inherited;
end;


procedure TWall.LoadFromXML(paNode: IXMLNode);
begin
  inherited LoadFromXML(paNode.ChildNodes['log_entity']);
end;


procedure TWall.SaveToXML(var paNode: Ixmlnode);
var
  n1, n : IXMLNode;
begin
  n := paNode.AddChild('wall');
  inherited SaveToXML(n);
end;


end.
